home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / PolyEd / Macros / jb_stripcr.ped < prev    next >
Text File  |  1996-09-26  |  2KB  |  55 lines
  1. /*
  2. ** $VER: jb_stripcr.rexx 1.0 (23.2.95) written by Johan Billing
  3. **
  4. ** This macro removes all CR characters (Carriage return, ASCII 13) from a
  5. ** text. This can be useful if you load a text that has been edited on a
  6. ** MS-DOS machine
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. OPTIONS FAILAT 11                           /* ignore warnings          */
  12. SIGNAL ON SYNTAX                            /* ensure clean exit        */
  13. SIGNAL ON FAILURE
  14. SIGNAL ON BREAK_C                            /* no label->syntax->exit    */
  15.  
  16. if (LEFT(ADDRESS(), 6) ~= "POLYED") then do
  17.     if SHOW("Ports", "POLYED.1") then
  18.         address 'POLYED.1'
  19.     else do
  20.         say "PolyEd is not running!"
  21.         exit
  22.     end
  23. end
  24.  
  25. 'LOCKGUI'
  26.  
  27. /*----- begin of custom code area --------------------------------------*/
  28.  
  29. /*
  30. ** This is rediculously simple, but unfortunately it can take a while
  31. ** with big texts...
  32. */
  33.  
  34. 'GETATTR APPLICATION STEM APP.'
  35.  
  36. 'FINDCHANGE FIND "' || '0d'x || '" CHANGE "" ALL'
  37.  
  38. 'SETATTR APPLICATION VAR_FINDSTRING "' || app.VAR_FINDSTRING || '"'
  39. 'SETATTR APPLICATION VAR_CHANGESTRING "' || app.VAR_CHANGESTRING || '"'
  40.  
  41. /*----- end of custom code area ----------------------------------------*/
  42.  
  43. 'UNLOCKGUI'
  44. EXIT
  45.  
  46. SYNTAX:                                     /* ARexx error...           */
  47.  
  48. say "Error line" SIGL ":" ERRORTEXT(RC)     /* report it...             */
  49. 'UNLOCKGUI'                                 /* Unlock GUI!              */
  50. EXIT                                        /* exit                     */
  51.  
  52. FAILURE:
  53. 'UNLOCKGUI'                                 /* Unlock GUI!              */
  54. EXIT                                        /* exit                     */
  55.